home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / TURB_VIS / TCYBER25 / COMMON.ZIP / CYBERAPI.PAS < prev    next >
Pascal/Delphi Source File  |  1994-10-20  |  8KB  |  78 lines
  1. {
  2. Turbo Vision CyberTools 2.5
  3. (C) 1994 Steve Goldsmith
  4. All Rights Reserved
  5. }
  6.  
  7. UNIT CYBERAPI ;{$I APP.INC} INTERFACE CONST VGAATTRINDEX =$03c0 ;VGAATTRDATA =$03c1 ;VGAATTRMODE =$10 ;
  8. VGAATTROVERSCAN =$11 ;VGAATTRCPENABLE =$12 ;VGAATTRHORZPELPAN =$13 ;VGAATTRCOLORSEL =$14 ;VGAMISCOUTWRITE =$03c2 ;
  9. VGASEQINDEX =$03c4 ;VGASEQRESET =$00 ;VGASEQCLOCKMODE =$01 ;VGASEQMAPMASK =$02 ;VGASEQCHRMAPSEL =$03 ;VGASEQMEMMODE =$04
  10. ;VGADACPELMASK =$03c6 ;VGADACREAD =$03c7 ;VGADACWRITE =$03c8 ;VGADACPELDATA =$03c9 ;VGAMISCOUTREAD =$03cc ;
  11. VGAGRAPHINDEX =$03ce ;VGAGRAPHRESET =$00 ;VGAGRAPHENABLE =$01 ;VGAGRAPHCOLORCMP =$02 ;VGAGRAPHFUNCSEL =$03 ;
  12. VGAGRAPHREADMAP =$04 ;VGAGRAPHMODE =$05 ;VGAGRAPHMISC =$06 ;VGAGRAPHDONTCARE =$07 ;VGAGRAPHBITMASK =$08 ;
  13. VGACRTINDEX =$03d4 ;VGACRTHORZTOTAL =$00 ;VGACRTHORZDISPEND =$01 ;VGACRTSTARTHORZBLANK =$02 ;VGACRTENDHORZBLANK =$03 ;
  14. VGACRTSTARTHORZRESCAN =$04 ;VGACRTENDHORZRESCAN =$05 ;VGACRTVERTTOTAL =$06 ;VGACRTOVERFLOW =$07 ;VGACRTVERTPELPAN =$08 ;
  15. VGACRTMAXSCANLINE =$09 ;VGACRTCURSTART =$0a ;VGACRTCUREND =$0b ;VGACRTSTARTADDRHI =$0c ;VGACRTSTARTADDRLO =$0d ;
  16. VGACRTCURLOCHI =$0e ;VGACRTCURLOCLO =$0f ;VGACRTSTARTVERTRESCAN =$10 ;VGACRTENDVERTRESCAN =$11 ;VGACRTVERTDISPEND =$12 ;
  17. VGACRTOFFSET =$13 ;VGACRTUNDERLINELOC =$14 ;VGACRTSTARTVERTBLANK =$15 ;VGACRTENDVERTBLANK =$16 ;VGACRTMODECONTROL =$17 ;
  18. VGACRTLINECOMPARE =$18 ;VGACRTSTATUS =$03da ;VGARGBMAX =2 ;VGADACREGMAX =255 ;VGAPALETTESIZE =768 ;VGAPAGEOFSLOC :ARRAY [
  19. 0 .. 7 ]  OF WORD =($0000 , $0800 , $1000 , $1800 , $2000 , $2800 , $3000 , $3800 );VGAPAGELOCOFS :ARRAY [ 0 .. 7 ]
  20.  OF WORD =($0000 , $1000 , $2000 , $3000 , $4000 , $5000 , $6000 , $7000 );VGASCRWIDTH =80 ;VGASCRSIZE25 =2000 ;
  21. VGASCRSIZE50 =4000 ;VGAMAXCHRTABLES =8 ;VGAMAXCHRHEIGHT =32 ;VGAMAXCHRS =256 ;VGACHRTABLESIZE =8192 ;VGAROM8X14 =2 ;
  22. VGAROM8X8 =3 ;VGAROMALT8X8 =4 ;VGAROMALT9X14 =5 ;VGAROM8X16 =6 ;VGAROMALT9X16 =7 ;VGACHRTABLELOCOFS :ARRAY [ 0 .. 7 ]
  23.  OF WORD =($0000 , $4000 , $8000 , $c000 , $2000 , $6000 , $a000 , $e000 );VGACHRTABLEMAP1 :ARRAY [ 0 .. 7 ]
  24.  OF BYTE =($00 , 01 , $02 , $03 , $10 , $11 , $12 , $13 );VGACHRTABLEMAP2 :ARRAY [ 0 .. 7 ]  OF BYTE =($00 , $04 , $08 ,
  25. $0c , $20 , $24 , $28 , $2c );VGABITTABLE :ARRAY [ 0 .. 7 ]  OF BYTE =(128 , 64 , 32 , 16 , 8 , 4 , 2 , 1 );VGANOCARD =0
  26. ;VGAMDAMDA =1 ;VGACGACGA =2 ;VGAEGAEGA =4 ;VGAEGAMDA =5 ;VGAVGAMONO =7 ;VGAVGACOLOR =8 ;VGAMCGACGA =10 ;VGAMCGAMONO =11 ;
  27. VGAMCGACOLOR =12 ;VGADATABUFMAX =65519 ;VGASCR256LINE =320 ;TYPE VGADATABUFPTR =^VGADATABUF ;VGADATABUF =ARRAY [ 0 ..
  28. VGADATABUFMAX ]  OF BYTE ;VGAPALETTEPTR =^VGAPALETTE ;VGAPALETTE =ARRAY [ 0 .. VGADACREGMAX , 0 .. VGARGBMAX ]  OF BYTE ;
  29. VGACHRTABLEPTR =^VGACHRTABLE ;VGACHRTABLE =ARRAY [ 0 .. VGACHRTABLESIZE - 1 ]  OF BYTE ;VGALINE256 =ARRAY [ 0 .. 319 ]
  30.  OF BYTE ;VGASCREEN256 =ARRAY [ 0 .. 199 ]  OF VGALINE256 ;PROCEDURE SETSEQCONT (INDEXREG ,DATAREG:BYTE );
  31. FUNCTION GETSEQCONT (INDEXREG :BYTE ):BYTE ;PROCEDURE SETCRTCONT (INDEXREG ,DATAREG:BYTE );FUNCTION GETCRTCONT
  32. (INDEXREG :BYTE ):BYTE ;PROCEDURE SETGRAPHCONT (INDEXREG ,DATAREG:BYTE );FUNCTION GETGRAPHCONT (INDEXREG :BYTE ):BYTE ;
  33. PROCEDURE SETATTRCONT (INDEXREG ,DATAREG:BYTE );FUNCTION GETATTRCONT (INDEXREG :BYTE ):BYTE ;PROCEDURE SETMISCOUTPUT
  34. (DATAREG :BYTE );FUNCTION GETMISCOUTPUT :BYTE ;PROCEDURE WAITVERTSYNC ;PROCEDURE WAITDISPENABLE ;PROCEDURE SETCHRWIDTH8 ;
  35. PROCEDURE SETCHRWIDTH9 ;FUNCTION ISCHRWIDTH9 :BOOLEAN ;PROCEDURE SETPAGE (STARTOFS :WORD );PROCEDURE COPYSCRMEM
  36. (SRC ,DEST:POINTER ;LEN :WORD );PROCEDURE SETDAC (REGNUM ,R,G,B:BYTE );PROCEDURE GETDAC (REGNUM :BYTE ;
  37. VAR R ,G,B:BYTE );PROCEDURE SETDACBLOCK (PALPTR :POINTER ;STARTREG ,REGCNT:WORD );PROCEDURE GETDACBLOCK
  38. (PALPTR :POINTER ;STARTREG ,REGCNT:WORD );PROCEDURE FADEOUTDAC (FADEINC :BYTE );PROCEDURE FADEINDAC
  39. (DEFPAL :VGAPALETTEPTR ;FADEINC :BYTE );PROCEDURE ACCESSFONTMEM ;PROCEDURE ACCESSSCREENMEM ;PROCEDURE FONTMAPSELECT
  40. (FONT1 ,FONT2:BYTE );PROCEDURE FONTMAPVAL (MAPSEL :BYTE ;VAR FONT1 ,FONT2:BYTE );PROCEDURE FONTTABLELOC (MAPSEL :BYTE ;
  41. VAR FONT1PTR ,FONT2PTR:POINTER );PROCEDURE SETRAMTABLE (STARTCHR ,TOTALCHRS,HEIGHT:WORD ;
  42. BUFADDR ,CHRADDR:VGACHRTABLEPTR );FUNCTION GETRAMTABLE (STARTCHR ,TOTALCHRS,HEIGHT:WORD ;
  43. CHRADDR :VGACHRTABLEPTR ):VGACHRTABLEPTR ;PROCEDURE SETTABLEPIX (X ,Y,XLEN,HEIGHT:WORD ;CHRADDR :VGACHRTABLEPTR ;
  44. PIXON :BOOLEAN );PROCEDURE DRAWTABLELINE (X1 ,Y1,X2,Y2,XLEN,HEIGHT:INTEGER ;CHRADDR :VGACHRTABLEPTR ;PIXON :BOOLEAN );
  45. PROCEDURE DRAWTABLEELLIPSE (XC ,YC,A,B,XLEN,HEIGHT:INTEGER ;CHRADDR :VGACHRTABLEPTR ;PIXON :BOOLEAN );
  46. FUNCTION VGACARDACTIVE :BOOLEAN ;PROCEDURE BIOSSETVIDEO (MODE :BYTE );PROCEDURE BIOSSETPALREG (REGNUM ,REGDATA:BYTE );
  47. FUNCTION BIOSGETPALREG (REGNUM :BYTE ):BYTE ;PROCEDURE BIOSSETDAC (REGNUM ,R,G,B:BYTE );PROCEDURE BIOSGETDAC
  48. (REGNUM :BYTE ;VAR R ,G,B:BYTE );PROCEDURE BIOSSETDACBLOCK (PALPTR :POINTER ;STARTREG ,REGCNT:WORD );
  49. PROCEDURE BIOSGETDACBLOCK (PALPTR :POINTER ;STARTREG ,REGCNT:WORD );PROCEDURE BIOSFONTMAPSELECT (FONT1 ,FONT2:BYTE );
  50. FUNCTION BIOSGETCHRHEIGHT :BYTE ;FUNCTION BIOSGETROMTABLEPTR (INFO :BYTE ):POINTER ;FUNCTION BIOSCOPYROMTABLE
  51. (INFO :BYTE ):VGACHRTABLEPTR ;PROCEDURE BIOSSETCHRTABLE (CHRTABLE :BYTE );PROCEDURE BIOSLOADFONT (CHRDATA :POINTER ;
  52. CHRTABLE ,CHRHEIGHT:BYTE ;STARTCHR ,NUMCHRS:WORD );PROCEDURE BIOSSETFONT (CHRDATA :POINTER ;CHRTABLE ,CHRHEIGHT:BYTE ;
  53. STARTCHR ,NUMCHRS:WORD );PROCEDURE BIOSLOAD8X8FONT (CHRTABLE :BYTE );PROCEDURE BIOSLOAD8X14FONT (CHRTABLE :BYTE );
  54. PROCEDURE BIOSLOAD8X16FONT (CHRTABLE :BYTE );PROCEDURE BIOSSET8X8FONT (CHRTABLE :BYTE );PROCEDURE BIOSSET8X14FONT
  55. (CHRTABLE :BYTE );PROCEDURE BIOSSET8X16FONT (CHRTABLE :BYTE );PROCEDURE MOUSETEXTMASK (ANDMASK ,XORMASK:WORD );
  56. VAR VGAPAGELOC :ARRAY [ 0 .. 7 ]  OF POINTER ;VGACHRTABLELOC :ARRAY [ 0 .. 7 ]  OF POINTER ;
  57. IMPLEMENTATION PROCEDURE SETSEQCONT ;EXTERNAL'VGA';FUNCTION GETSEQCONT ;EXTERNAL'VGA';PROCEDURE SETCRTCONT ;
  58. EXTERNAL'VGA';FUNCTION GETCRTCONT ;EXTERNAL'VGA';PROCEDURE SETGRAPHCONT ;EXTERNAL'VGA';FUNCTION GETGRAPHCONT ;
  59. EXTERNAL'VGA';PROCEDURE SETATTRCONT ;EXTERNAL'VGA';FUNCTION GETATTRCONT ;EXTERNAL'VGA';PROCEDURE SETMISCOUTPUT ;
  60. EXTERNAL'VGA';FUNCTION GETMISCOUTPUT ;EXTERNAL'VGA';PROCEDURE WAITVERTSYNC ;EXTERNAL'VGA';PROCEDURE WAITDISPENABLE ;
  61. EXTERNAL'VGA';PROCEDURE SETCHRWIDTH8 ;EXTERNAL'VGA';PROCEDURE SETCHRWIDTH9 ;EXTERNAL'VGA';FUNCTION ISCHRWIDTH9 ;
  62. EXTERNAL'VGA';PROCEDURE SETPAGE ;EXTERNAL'VGA';PROCEDURE COPYSCRMEM ;EXTERNAL'VGA';PROCEDURE SETDAC ;EXTERNAL'VGA';
  63. PROCEDURE GETDAC ;EXTERNAL'VGA';PROCEDURE SETDACBLOCK ;EXTERNAL'VGA';PROCEDURE GETDACBLOCK ;EXTERNAL'VGA';
  64. PROCEDURE FADEOUTDAC ;EXTERNAL'VGA';PROCEDURE FADEINDAC ;EXTERNAL'VGA';PROCEDURE ACCESSFONTMEM ;EXTERNAL'VGA';
  65. PROCEDURE ACCESSSCREENMEM ;EXTERNAL'VGA';PROCEDURE FONTMAPSELECT ;EXTERNAL'VGA';PROCEDURE FONTMAPVAL ;EXTERNAL'VGA';
  66. PROCEDURE FONTTABLELOC ;EXTERNAL'VGA';PROCEDURE SETRAMTABLE ;EXTERNAL'VGA';FUNCTION GETRAMTABLE ;EXTERNAL'VGA';
  67. PROCEDURE SETTABLEPIX ;EXTERNAL'VGA';PROCEDURE DRAWTABLELINE ;EXTERNAL'VGA';PROCEDURE DRAWTABLEELLIPSE ;EXTERNAL'VGA';
  68. FUNCTION VGACARDACTIVE ;EXTERNAL'VGA';PROCEDURE BIOSSETVIDEO ;EXTERNAL'VGA';PROCEDURE BIOSSETPALREG ;EXTERNAL'VGA';
  69. FUNCTION BIOSGETPALREG ;EXTERNAL'VGA';PROCEDURE BIOSSETDAC ;EXTERNAL'VGA';PROCEDURE BIOSGETDAC ;EXTERNAL'VGA';
  70. PROCEDURE BIOSSETDACBLOCK ;EXTERNAL'VGA';PROCEDURE BIOSGETDACBLOCK ;EXTERNAL'VGA';PROCEDURE BIOSFONTMAPSELECT ;
  71. EXTERNAL'VGA';FUNCTION BIOSGETCHRHEIGHT ;EXTERNAL'VGA';FUNCTION BIOSGETROMTABLEPTR ;EXTERNAL'VGA';
  72. FUNCTION BIOSCOPYROMTABLE ;EXTERNAL'VGA';PROCEDURE BIOSSETCHRTABLE ;EXTERNAL'VGA';PROCEDURE BIOSLOADFONT ;EXTERNAL'VGA';
  73. PROCEDURE BIOSSETFONT ;EXTERNAL'VGA';PROCEDURE BIOSLOAD8X8FONT ;EXTERNAL'VGA';PROCEDURE BIOSLOAD8X14FONT ;EXTERNAL'VGA';
  74. PROCEDURE BIOSLOAD8X16FONT ;EXTERNAL'VGA';PROCEDURE BIOSSET8X8FONT ;EXTERNAL'VGA';PROCEDURE BIOSSET8X14FONT ;
  75. EXTERNAL'VGA';PROCEDURE BIOSSET8X16FONT ;EXTERNAL'VGA';PROCEDURE MOUSETEXTMASK ;EXTERNAL'VGA';PROCEDURE O1l0OI1llOO0 ;
  76. VAR OIlO:BYTE;BEGIN FOR OIlO := 0 TO 7  DO BEGIN VGAPAGELOC [ OIlO ] := PTR (SEGB800 , VGAPAGELOCOFS [ OIlO ] );
  77. VGACHRTABLELOC [ OIlO ] := PTR (SEGA000 , VGACHRTABLELOCOFS [ OIlO ] )END END ;BEGIN O1l0OI1llOO0 END.
  78.